﻿Module Module6
    Sub Main()
        Dim x As Integer
        For x = 79 To 0 Step -1
            If x <> 79 Then
                Console.SetCursorPosition(x + 1, 0)
                Console.Write(" ")
            End If
            Console.SetCursorPosition(x, 0)
            Console.Write("*")
            System.Threading.Thread.Sleep(100)
        Next
        Console.ReadKey()
    End Sub
End Module
